home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 April / CHIP 1996 aprilis (CD06).zip / CHIP_CD06.ISO / sac / pack / rarbatch.exe / rar / ZIP2RAR.BAT < prev   
DOS Batch File  |  1994-11-19  |  2KB  |  80 lines
  1. REM ■■■  To convert Zip files to ~RAR~ ■■■
  2.  
  3. @Echo off
  4. if %1A==A goto Usage
  5. if %1==* goto Mask
  6. if %1==*.zip goto Mask
  7. goto Single
  8. :Mask
  9. if exist *.zip goto MaskYeah
  10. echo %1 -- files cannot be found.
  11. echo %1 -- files cannot be found. >>!zip2rar.!!!
  12. goto Exit
  13. :MaskYeah
  14. if exist *. ren * *.$e$
  15. ren *.zip *.
  16. for %%f in (*.) do call zip2rar %%f
  17. if exist *.$e$ ren *.$e$ *.
  18. goto Quit
  19. :Single
  20. echo ZIP2RAR v0.03 (c) AS, RAR Support              Free!
  21. if exist %1.zip goto Ok
  22. if exist %1 goto Ok
  23. goto ErrFNF
  24. :Ok
  25. if exist %1.rar goto ErrRARe
  26. mkdir $for-zip
  27. if exist %1.zip goto WExt
  28. goto NoExt
  29. :WExt
  30. ren %1.zip *.
  31. :NoExt
  32. pkunzip -d %1. $for-zip
  33. if errorlevel 1 goto ErrExtr
  34. if not exist *.* goto ErrExtr
  35. cd $for-zip
  36. rar m -r -s -std -tl ..\%1.rar
  37. if errorlevel 1 goto ErrRAR
  38. cd ..
  39. rd $for-zip
  40. echo %1.ZIP -} %1.RAR repack successfully completed.
  41. if exist %1. erase %1.
  42. Goto Quit
  43. :ErrExtr
  44. ren %1 *.zip
  45. cd $for-zip
  46. rar m -r -s -std -tl ..\!zipErar.rar >>nul
  47. cd ..
  48. del !zipErar.rar
  49. rd $for-zip
  50. echo %1.ZIP -- File cannot be unpacked because errors!
  51. echo %1.ZIP -- File cannot be unpacked because errors!
  52. >>!zip2rar.!!!
  53. echo   (NOTE, NO EXTENSION PLEASE!!!)
  54. Goto Quit
  55. :ErrRARe
  56. echo %1.RAR -- File already exists. Cannot be repacked!
  57. echo %1.RAR -- File already exists. Cannot be repacked!
  58. >>!zip2rar.!!!
  59. goto Quit
  60. :ErrRAR
  61. cd ..
  62. ren %1 *.zip
  63. rd $FOR-zip
  64. echo %1.ZIP -- File cannot be repacked!
  65. echo %1.ZIP -- File cannot be repacked! >>!zip2rar.!!!
  66. echo   (NOTE, NO EXTENSION PLEASE!!!)
  67. Goto Exit
  68. :ErrFNF
  69. echo %1 -- File not found!
  70. echo %1 -- File not found! >>!zip2rar.!!!
  71. Goto Quit
  72. :Usage
  73. echo ZIP2RAR v0.03 (c) AS, RAR Support              Free!
  74. echo   Usage: zip2rar {ziparch}
  75. echo (Note, no extension please!)
  76. :Exit
  77. if exist *.$e$ ren *.$e$ *.
  78. exit
  79. :Quit
  80.